Két szám bekérése és összehasonlítása (Hasonlit.pas) program Hasonlit; uses crt; var n1,n2:integer; BEGIN    write('Az elso szam=');    readln(n1); Bekérjük az első számot és eltároljuk n1-ben.    write('A masodik szam=');    readln(n2); Bekérjük a második számot és eltároljuk n2-ben.    if (n1<n2) then begin Megvizsgáljuk, hogy az első szám kisebb e a másodiknál, ha igen, akkor kiírjuk, hogy az n2 a nagyobb, egyébként pedig, hogy az n1 a nagyobb.       writeln ('A masodik szam (',n2,') a nagyobb.');       end Kétirányú elágazás esetén az else előtti end-et nem zárjuk le ;-vel.    else begin       writeln('Az elso szam (',n1,') a nagyobb.');       end; END.